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PRES I DENT I AL NOTES 


By Bob Bewley 



Before I start my regular article, I'd like to thank some 
people that I forgot to thank last month (please excuse me). 

My first THANKS goes to Murray Steele, he donated a few books 
and a joystick to the club a couple of months ago. My next 
THANKS goes to David Fuller, he donated A LOT of magazines to 
the club (Analog, Atari Explorer, Antic and Compute) at least 
fifty pounds worth! Hopefully by the October meeting I will ; 
have a list of these magazines and anyone who needs, wants or 
will kill for any of these magazines can have the chance to 
own them (at least ONE of them). Details will be ironed out 
at the September meeting. 


Now that I got those THANKS out of the way, it's time for 

the up-to-date THANKS First, Thanks to Sharon Jasper for 

her GREAT demo of AWARDWARE. Maybe we can persuade her to 
show SPELLACOPTER (sorry if I spelled that wrong) at another 
meeting. Another THANKS goes to Gerald Burton for his 
outstanding demo of STARFLEET ONE. John Brandt was unable to 
show the RAMCHARGER enhancement on the INDUS GT due to his 
recent move, but maybe we'll see it in the near future 
(perhaps even this month). 


Veil, on to the plans for this month's meeting...., At 
our last officers meeting we discussed a few items whiCi. we 
will bring up for discussion at the next club meeting. The 
first item will be whether or not to buy a monitor for the 
club. The second item is a Questionaire which will be filled 
out by club members giving information about what equipment 
you have, main interests, occupation, etc. This information 
will then be sorted, sifted, condensed, mutilated, folded and 
spindled with the final result being a list of members with 
related information that can be used by other members to seek 
out people with the same interests, equipment, etc. This 
could be very helpful if you are having trouble with ) 
something on your system, you can find out who else has the 
same equipment, contact them and see if they have ever had 
the same or similar problem. I believe that this will bring 
the members closer together and become less afraid of trying 
new things on their computer. 
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1060 BNE TXrUDQ 

1 1070 LDX D INDEX 

10S0 CPI #3 

1090 BCC TXTMOD 

1100 LD2 mMSC 
1110 TXTWDQ LDX 13 
1120 TXTMOD ST2 SCRNAD 
1130 LDA ROHTBL, X 

1140 STA row 

1150 LDY COLTBL, X 

1160 HXTLH TYA 
1170 PHA 

1100 LDX 140 

1190 CLRBUF DEY 
1200 Bill OUTPUT 

1210 TSTCH LDA (SCRNAD), Y 
1220 BEE CLRBUF 

1230 CNVLN LDA (SCRNAD), Y 
1240 BIT BITS 

1250 BNE ADJ1 

1260 EOR BIT5 

1270 ADJ1 BIT B1T5 
1280 BNE ADJ2 

1290 EDR BITS 

1300 ADJ2 DEI 
1310 STA SIOBUF.X 

a 320 BNE ADJ3 

330 JSR OUTSUB 

1340 Bill SKIP 

1350 LDI (40 

1360 BNE OUTPUT {Unconditional 

1370 ADJ3 DEY 

1300 BPL CNVLN 

1390 OUTPUT JSR OUTSUB 

1400 SKIP CLC 

1410 PLA 

1420 TAY 

1430 ADC SCRNAD 

1440 STA SCRNAD 

1450 BCC NOINC 

1460 INC SCRNADM 

1470 ND1NC LDA *0303 

1400 BHi RESTORE 

1490 DEC ROW 

1500 BNE NITLH 

1510 RESTORE LDI 10 

1520 STI PRTFLAG 

1530 RSTDCB PLA 


1540 STA *0300, X 

1550 INI 

1560 CPI 112 

1570 BCC RSTDCB 

1580 PLA 

1590 STA SCRNAD+i 

1600 PLA 

1610 STA SCRNAD 

1620 JHP *E462 

1630 OUTSUB CLC 

1640 TXA 

1650 ADC I <SIOBUF 

1660 STA *0304 

1670 LDA I >S10BUr 

1680 ADC *0 

1690 STA *0305 

1700 LDA 1*00 {Output block 

1710 STA *0303 

1720 JHP t£453 

1730 ROD *= *+l 

1740 StOBUF *= *+40 

1750 .BYTE *9B, 

* 

1760 ROHTBL .BYTE 24 f 24, 12 f 4 
1770 COLTBL * BYTE 40,20,20,40 
1780 BIT6 

1790 PRTBCB .BYTE $40,1, r H 
I BOO BIT5 .BYTE $20 
1810 .WORD SI08UF 

i B20 .BYTE 9,0,40,0, r N,0 

1830 \ This part is executed at load 
1840 ; tiae only and will be deleted 
1050 f afterwards. This routine 
I860 ; stores the contents of DDSINI 
1870 ; into the JSR TROJAN instruc- 
18B0 j tion. It then replaces DDSINI 
1890 i with a new value, location 
1900 ; TROJAN. 

1910 m mm vbx+i,vvblkd 

1920 H0VE2 NORMAL+ 1 f VKEYBD 

1930 mm TROJAN+1 , DDSINI 

1340 DPDKE DDSINI, TROJAN 

1950 JhP i NIT 

1960 *= I02E2 

1970 .WORD END 


I 


Anyway, that was some of the ideas that WE came up 

w*..n I hope that we can get some more ideas from YOU. 

Remember, YOU are the reason that we have these meetings and 
if YOU are not satisfied with what goes on at the meeting I 
hope that YOU will say something to me. I really enjoy 
planning and conducting these meetings and I hope it's not 
ALL in vain. If anyone of you would like to see a particular 
piece of hardware or software demonstrated at the meeting, 
PLEASE let me know and I'll do everything in my power to get 
it for you. After all, if you're interested in seeing it, 
chances are that several other people would like to see the 
same thing (only they're too shy to ask). 

Some of you new members (or old members) may not know 
that if you have something to sell or trade you can advertise 
in this newsletter for FREE! Just submit the pertinent 
information to the editor (either at the meeting or by 
telephone) and it will magically appear in the next 
newsletter. Also, if you run across any special sales or 
informative articles, PLEASE let us know about them at the 
meeting. Host of our door prizes are the result of 
information which 1 receive from other members or officers or 
I just happen to stumble upon them in the store. So be sure 
to keep your eyes and ears open for ATARI bargains! 

If times permits at the next meeting, 1 will show an 
( U Trak Ball and/or WICO Joystick and/or ATARI Touch 
Toulet. Just some of the helpful gadgets you can purchase for 
your enjoyment. So until then, KEEP THOSE ARTICLES AND DEMOS 
COMING! 1 ! 

See you at the meeting. 


BONDS, BILLS, AND NOTES FROM THE TREASURY 
By Richard Rhea 

I have really been besieged these past several weeks by 
my first exposure to the Atarian's most feared of times: 
Those dreaded summer doldrums! With all of the usual 
summertime activities in full swing, I admit I have found 
myself neglecting "Myrtle" (my computer, not my wife!). I can 
only hope for cooler weather to help snap me out of these 
doldrums and put me back at my desk computing. 
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Oh well, be that as it may, this month's Treasury f irt 
still looks good with a slight increase in the balance wer 
last month. Credits included healthy sales of the 
Disk-o£-the-Month, D-O-M coupons and blank disks. We had 
debits again relating to the newsletter and for door prizes. 
At the last officer's meeting. It was felt that the Club's 
finances and cash flow were adequate enough to consider the 
purchase of additional equipment for the Club, the details of 
which will be discussed at this months meeting, 

I would like to thank the following people for their new 
membership or renewal of an existing membership for the new 
Club year during the sign-up period these past two months. 

JULY: Sharon Jasper, Bill Hoag, Gerald Burton, Randy 
Mcconnell, David Wolbrette, George Horse Jr., Jerry Rich, 
Delmer and Becky Pound, Bob Bewley, Bob Griffith, Fred Jones, 
John Brandt, Dale Jencks, Bob and Donna Merry, Tom and Louise 
Holden, Virgil Holden, Pat Rice, Richard Rhea, Leroy Schultz, 
and Murry Steele. 

August: Dave Archer and Don McDown. 

Hope to see you all at the meetingl 


TREASURER'S REPORT , 

AUGUST 1987 
By Richard Rhea 

BEGINNING BALANCE******************************>>> $519.91 


DEBITS 


CREDITS 


Printing 

$ 

26.18 

Mailing 

$ 

22.00 

Prizes 

$ 

40.00 


Dues 

$ 

30.00 

DOM 

$ 

40.00 

DOM Coup 

$ 

20.00 

Disks 

$ 

6.00 


$ 88.18 


$ 9G.00 


ENDING BALANCE*********************************>>> $527.73 
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EDITOR * S CORNER 
By George Morse 

Well another month has passed and summer is nearly over 
now. The kids have returned to school and our summertime 
activities are starting to wind down. It's time now to get 
back to some serious computing again. 

Last months meeting was quit informative to most everyone 
that was there. I would like to thank all of those who 
participated in the demo's and encourage all members to share 
their software and hardware knowledge with us at our 
meetings . 

After seeing Bob demo the happy drive, I'm convinced 
that's the way to go for a second drive. If you weren't at 
the last meeting you also missed out on an excellent 
presentation of AWARDWARE by Sharon Jasper. This software 
package is now available from Computer Direct for $9.95. For 
all of you game buffs that were not at the last meeting, you 
also missed out on Gerald Burton's demo of STARFLEET ONE. 

Enclosed in this months newsletter are the answers to 
last months puzzle by Tom Holden as well as a new Word Find 
puzzle . 

One last note, when typing in line I 1750 of John 
Brandt's program SHIFT-ATARI you need to insert 39 spaces 
b^veen the "QUOTES". 

SEE YOU AT THE MEETING. 

LIBRARIAN'S CORNER 
By Fred Jones 

It's time for one more letter from the ACCOKC librarian. 
The month of August has been a real dandy. I'll be glad when 
summer is really over and things can finally get back to 
normal . 

The disk of the month for September will be mostly games 
from Antic and Analog magazines. I have a couple of games 
that haven't been printed, they are just extras that there 
was no room to publish in the magazines. All instructions for 
the disk of the month files will be in the Help file on disk. 
I don't have easy access to free xerox copies. 

There were some DOM's last month that didn't get copied 
correctly. If you have one, then bring it to the meeting for 
a replacement copy. 
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>>> 

AUQ WORD 

RIND Tom 

Holden <<< 



WORD LIST 


ACCOKC 

ANALOG 

ANTIC 

ATARI 

ATARI BASIC 

BBS 

BINARY 

BOB BEULEY 

CHIP 

CLUB 

CPU 

I NTERGRATED CIRCUIT 

COMPUTER 

DEMO 

DISK DRIVE 

DISK-OF-THE-MONTH 

DOS 

FRE<0> 

GEORGE MORSE 

GOSUB 

GOTO 

HAPPY 

INDUS 

LIBRARIAN 

MICRO-SOFT 

PASSWORD 

SYNCALC 

SYNFILE 

PACKMAN 

PRINTER 

LIBRARY 

MONITOR 

UTILITY 

SARGON 

MODEM 

PRINT 

MULE 

RAM 

ROM 

LIST 


A 

N 

A 
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SHIFT-ATARI 


(' 


By John Brandt 

It happens occasionally. You have something on your 
monitor screen that you want a paper copy of, but the Atari 
doesn't give you any way to print it out. The last time it 
happened to me, 1 could hear the echoes of IBM fans 
everywhere: "If you'd move up to a REAL computer, you'd have 
a PrtSc (print screen) key!" Well, going to an IBM seemed 
like an awfully extreme (and expensive) way to get a PrtSc 
key, so I decided to see if I could write a program that 
would give my computer a PrtSc key. 

The first decision I had to make was: which key or 
combination of keys would I use as the PrtSc key? I rejected 
anything involving the Start, Select, or Option keys, because 
too many programs use those already. Anything involving Help 
was out too, because not everyone uses an XL or XE. Anything 
on the CX85 keypad was also out because even fewer people 
have one of those. Ctrl-Shift-P sounded good, but both 
Action 1 and Paperclip use that key combination to mean 
"Paste." I finally decided on Shift-Inverse because on the 
XL's, the Inverse key is in the same place on the keyboard as 
IBM's PrtSc key, and because I've never heard of any software 
that uses Shift-Inverse for anything. 

( I knew that in order to make Shift-Inverse do something 
besides what it does normally (which is the same thing as 
plain Inverse), I would have to write a "keyboard interrupt" 
handler. This is a special machine-language program that gets 
control whenever a key is pressed. I could then compare each 
keystroke against the code for Shift-Inverse and print the 
screen when it matched. But since most printers are on the 
serial bus, you have to use Atari's SIO (serial I/O) routine 
to print anything, and this causes problems. SIO is 
interrupt-driven, and I was going to call it from an 
interrupt routine) I knew this would work if I re-enabled 
interrupts, but first I would have to set a "PrtSc active" 
flag in case someone got impatient and hit Shift-Inverse 
while the screen was still printing. I would also have to 
make sure I ignored Shift-Inverse if SIO were already in 
progress. Even with these precautions, I was worried about 
what would happen if the Atari were in a deferred VBLANK 
(vertical-blank) routine when I hit Shift-Inverse. Since it 
would obviously take more than l/60th sec. to print the 
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screen, the next VBLANK interrupt would cause the routine 
be re-entered from the beginning, and it wasn’t designed 
that. I could suppress further deferred VBLANK processing 
(and thus avoid the problem) by setting an OS flag called 
CRITIC, but wouldn't you Know: CIO sets CRITIC itself on 
entry (which causes no problem) and clears it upon exit 
(which does cause a problem). 

After pondering several ways around this, I decided the 
best solution was to make the routine which would actually 
print the screen a deferred VBLANK routine itself. The 
keyboard interrupt routine would just set a flag which the 
print-screen routine would test. This way, I wouldn't have to 
hold the interrupt for more than a few microseconds, and I 
wouldn't be re-enabling interrupts anyway, so there was no 
chance of a problem with VBLANK. And if I hit Shift-Inverse 
during serial I/O, the print-screen function would merely be 
deferred rather than ignored. 

The following program is the result of my efforts. It's 
written for the MAC/65 macro assembler from OSS, but the code 
can easily be modified for the Atari macro assembler or even 
the old assembler/editor cartridge. I decided to call it 
Shift-Atari, which is IKungese for "Print Screen." 
(Seriously, the name Shift-Atari arises from the fact that on 
the old 400 's and 800's, the Inverse key is marked with 
Atari's familiar fuji symbol, so on these computers, it's 
called the "Atari" key.) 

This program's initialization routine places the addr^ „ 
of the normal keyboard interrupt and VBLANK routines into JMP 
instructions contained in our new routines, then changes the 
OS interrupt vectors to point to our routines. Thus, when a 
key is pressed, the Atari jumps to our keyboard routine 
instead of its own. Our routine then checks for the 
Shift-Inverse key combination. If Shift-Inverse wasn't 
pressed, it simply jumps to the original routine. Otherwise, 
it sets the print-screen flag and then exits. 

The VBLANK routine works by first checking the flag. If 
the flag is not set, or if it indicates that a print-screen 
is already in progress, then it merely exits to the old 
routine. Otherwise, it changes the flag to indicate that a 
print-screen is in progress and begins work. It checks the 
current screen mode to determine the starting address of the 
text and the number of rows and columns. Then it reads a line 
directly from screen memory, converts it to ASCII, and writes 
it to the printer using Serial I/O. This process is repeated 
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til either an error occurs or all rows have been printed, 
finally, it clears the flag and exits. 

In split-screen GRAPHICS 1 or 2, this program will print 
either the graphics window or the text window, depending on 
which was last written to. In GRAPHICS 3 and up, it will 
always print the text window (which exists even in 
full-screen modes, even though it is not displayed). 

The source code above is designed to assemble at address 
1F00 hex. Because of the wide variety of DOSes used by our 
members, however, this may not be right for you. Therefore, 
the assembled version I've placed on the club library is a 
"relocatable" version. It contains a "loader" program which 
will automatically place this program in memory at LOMEH. The 
loader itself, however, uses page sixl I intend to publish 
more programs using this loader, so if you insist on using 
page six for your own resident programs, make sure you load 
my programs first. After my programs load, page six may be 
used freely again. 

This program can be loaded in several ways: With most 
DOSes, it can be concatenated into an AUTORUN. SYS file. With 
Top-DOS, it can be autobooted by naming it PRTSC.AUT or the 

like. It can also be loaded from the DOS menu or command 

level. Unfortunately, it doesn't seem feasible to load this 
program with boot disks such as SynCalc or Paperclip. 
(Paperclip should have been a binary file, since it's key 
protected, not copy protected.) I recommend using this 
( igram with Top-DOS, DOS XL or the older OS/A+, because it 
doesn't work with SpartaDOS yet (I'll fix that as soon as I 
figure out why) and many menu-driven DOSes (including Atari 
DOS 2. OS and 2.5) completely ignore LOMEM when loading 
DUP.SYS and are likely to overwrite this program, causing a 
crash on the next VBLANK. This program can still be used with 

such DOSes if the menu is never called, as would be the case 

with, e.g., Atariwriter. It can also be used with programs 
such as S.A.M. or Microsoft BASIC, which push LOMEM up ABOVE 
DUP.SYS, as long as MEM.SAV is not invalidated. (Top-DOS is 
OK because its DUP.SYS file loads at a high enough address to 
give you a margin of safety. ) 

This program gives a high priority to print-screen 
requests, so you can safely print a screen while loading or 
saving a file or running a long program, but beware: If you 
press Shift-Inverse during a printout, you'll get your 
print-screen right in the big middle of it. One last hint: 
The BREAK key can be used to abort a screen print request. 
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0100 . OPT NO MUST 

0580 

TRDJAN JSR 0 

0110 

.HACRO LD2 


0590 

IN I T LDA 10 

0120 

LDA 11 


0600 

STA PRTFLA6 

0130 

LDY IJ+1 


0610 

DPOKE VKEYBD, NEWPRQCEDURE 

0140 

, ENDH 


0620 

DPOKE LDHEH, END 

0150 

.MACRO ST2 


0630 

LDA 17 {Reestablish 

0160 

ST A XI 


0640 

LDY 1 <V8L j vertical blank 

0170 

STY Xl+1 


0650 

LDX t >VBL ; routine 

0180 

.ENDH 


0660 

JHP SETVBV 

0190 

.MACRO H0VE2 

0670 

• 

r 

0200 

LD2 n 


0680 

} ENTRY POINT 

0210 

ST2 11 


0690 

* 

i 

0220 

, ENDH 


0700 

j Nev keyboard interrupt handler 

0230 

.MACRO DPOKE 

0710 

t 

t 

0240 

LDA 1 <12 


0720 

NENPROCEDURE 

0250 

LDY t >X2 


0730 

f 

0260 

ST2 11 


0740 

LDA KBCODE 

0270 

.ENDH 


0750 

CAP II40+INVERSE 

0280 

f 

1 


0760 

BNE NORMAL 

0290 

; EQUATES 


0770 

STA CHI {last key 

0300 

! 


0780 

LDA PRTFLAG 

0310 

VKEYBD = $02 OB 

{Keyboard vector 

0790 

ORA 11 

0320 

vvblkd = *0224 

; De f vert blk v 

0800 

STA PRTFLAG 

0330 

KBCODE = ID209 

;Pokey register 

0810 

PIA 

0340 

SETVBV ^ $E45C 

{Set vert blk v 

0820 

RTI 

0350 

CHI = IQ2F2 

{Last key pressed 

0830 

NORMAL JNP O 

0380 

KEYDEL = I02F1 

; Key bounce counter 

0B40 

i 

0370 

D INDEX = $57 


0850 

; Vertical blank routine f 

0380 

SAVMSC = $50 


0860 

! 

0390 

SHPFLfi = $7B 


0870 

VBL LDX PRTFLAG 

0400 

TXTHSC = <0234 


0880 

DEX 

0410 

DOS INI * $OC 

{DOS initialization 

0890 

BEQ PRTSC 

0420 

SCRNAD = ICO 


0900 

VBX JHP 0 

0430 

LONER = I02E7 

; Potto* of Beaory ptr 0910 

PRTSC DEI 

0440 

INVERSE = 39 

; for these 

0920 

SIX PRTFLAG 

0450 

f This routine 

is permanent, 

0930 

LDA SCRNAD 

0460 

; i.e., it needs to be resident. 

0940 

PHA 

0470 

; The syste* DOS I HI vector has 

0950 

LDA SCRNAD+ 1 

0480 

; been stolen and stored in the 

0960 

PHA 

0490 

; address portion of the 

0970 

LDX tl] 

0500 

; JSR TROJAN instruction. So, 

0980 

SAVEDCB LDA 40300,1 

0510 

i when [ RESET J 

is pressed, 

0990 

PHA 

0520 

f D0SIN1 vectors to TROJAN, and 

1000 

LDA PRTDCB,! 

0530 

{ LDHEH is reset to its nev val- 

1010 

STA 40300, X 

0540 

; ue after JSR TROJAN calls the 

1020 

DEX 

0550 

; DOS initialization routines. 

1030 

BPL SAVEDCB 

0560 

»= 41FQ0 


1040 

LD2 SAVHSC 

0570 

PRTFLAG »= «+l 


1050 

LDX SWPFL6 
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